object parcadeg: Tparcadeg
  Tag = 76
  Left = 66
  Top = 77
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Par'#231'a De'#287'i'#351'imi'
  ClientHeight = 448
  ClientWidth = 906
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Label29: TLabel
    Left = 8
    Top = 27
    Width = 35
    Height = 14
    Caption = 'Seri No'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label32: TLabel
    Left = 8
    Top = 49
    Width = 49
    Height = 14
    Caption = 'Stok Kodu'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label33: TLabel
    Left = 8
    Top = 73
    Width = 47
    Height = 14
    Caption = 'Stok Cinsi'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel
    Left = 216
    Top = 28
    Width = 53
    Height = 14
    Caption = 'Al'#305'nan Gar.'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 8
    Top = 156
    Width = 641
    Height = 9
    Shape = bsTopLine
    Style = bsRaised
  end
  object Bevel2: TBevel
    Left = 8
    Top = 8
    Width = 905
    Height = 9
    Shape = bsTopLine
    Style = bsRaised
  end
  object Label9: TLabel
    Left = 128
    Top = 183
    Width = 47
    Height = 14
    Caption = 'Gar.BitTar'
    Color = clBtnFace
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label8: TLabel
    Left = 216
    Top = 52
    Width = 56
    Height = 14
    Caption = 'Verilen Gar.'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label11: TLabel
    Left = 377
    Top = 28
    Width = 42
    Height = 14
    Caption = '( '#304'thalat )'
  end
  object Label12: TLabel
    Left = 377
    Top = 52
    Width = 46
    Height = 14
    Caption = '( M'#252#351'teri)'
  end
  object Label16: TLabel
    Left = 440
    Top = 52
    Width = 56
    Height = 14
    Caption = #304#351'cilik '#220'creti'
    Color = clBtnFace
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label17: TLabel
    Left = 440
    Top = 28
    Width = 56
    Height = 14
    Caption = 'Par'#231'a Fiyat'#305
    Color = clBtnFace
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label3: TLabel
    Left = 304
    Top = 183
    Width = 35
    Height = 14
    Caption = 'Seri No'
    Color = clBtnFace
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label18: TLabel
    Left = 440
    Top = 76
    Width = 62
    Height = 14
    Caption = 'Toplam '#220'cret'
    Color = clBtnFace
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label2: TLabel
    Left = 8
    Top = 183
    Width = 31
    Height = 14
    Caption = 'Bel.No'
    Color = clBtnFace
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label4: TLabel
    Left = 440
    Top = 99
    Width = 63
    Height = 14
    Caption = #304'ade Bil.'#304#351'l.No'
    Color = clBtnFace
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label5: TLabel
    Left = 440
    Top = 123
    Width = 65
    Height = 14
    Caption = #199#305'k'#305#351' Bil.'#304#351'l.No'
    Color = clBtnFace
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Bevel6: TBevel
    Left = 8
    Top = 350
    Width = 625
    Height = 9
    Shape = bsTopLine
    Style = bsRaised
  end
  object Label6: TLabel
    Left = 12
    Top = 334
    Width = 369
    Height = 14
    Caption = 
      'Not : Ekle veya '#199#305'kart butonuna bas'#305'larak yap'#305'lan i'#351'lemler otoma' +
      'tik kaydedilir...'
  end
  object garbitf: TwwDBEdit
    Tag = 1
    Left = 278
    Top = 20
    Width = 96
    Height = 22
    Color = 14811135
    DataField = 'alinangaranti'
    DataSource = dmTeknik.parcadeglistds1
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 3
    UnboundDataType = wwDefault
    UsePictureMask = False
    WantReturns = False
    WordWrap = False
  end
  object fiyatp: TwwDBEdit
    Tag = 1
    Left = 520
    Top = 20
    Width = 105
    Height = 22
    Color = 14811135
    TabOrder = 4
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
  end
  object garbitM: TwwDBEdit
    Tag = 1
    Left = 278
    Top = 44
    Width = 96
    Height = 22
    Color = 14811135
    DataField = 'verilengaranti'
    DataSource = dmTeknik.parcadeglistds1
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 10
    UnboundDataType = wwDefault
    UsePictureMask = False
    WantReturns = False
    WordWrap = False
  end
  object wwDBGrid1: TwwDBGrid
    Left = 10
    Top = 210
    Width = 625
    Height = 117
    DisableThemes = False
    Selected.Strings = (
      'serinos'#9'30'#9'Seri No'
      'stokkodu'#9'20'#9'Stok Kodu'
      'cinsi'#9'23'#9'Cinsi'
      'alinangaranti'#9'18'#9'Garanti'#9'F')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    DataSource = dmTeknik.spParDegYeniParLs
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    KeyOptions = [dgEnterToTab]
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
    ParentFont = False
    TabOrder = 11
    TitleAlignment = taLeftJustify
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clNavy
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
    TitleLines = 1
    TitleButtons = False
  end
  object GarDr: TDBRadioGroup
    Left = 4
    Top = 95
    Width = 121
    Height = 41
    Caption = ' Garanti '
    Columns = 2
    DataField = 'garantidurumu'
    Items.Strings = (
      'Var'
      'Yok')
    ReadOnly = True
    TabOrder = 12
    Values.Strings = (
      'E'
      'H')
    OnChange = GarDrChange
  end
  object wwDBEdit2: TwwDBEdit
    Tag = 1
    Left = 520
    Top = 44
    Width = 105
    Height = 22
    Color = 14811135
    TabOrder = 5
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
  end
  object fiyatf: TwwDBEdit
    Tag = 1
    Left = 520
    Top = 68
    Width = 105
    Height = 22
    Color = 14811135
    Picture.PictureMask = '#*#'
    TabOrder = 6
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
  end
  object GroupBox1: TGroupBox
    Left = 136
    Top = 95
    Width = 289
    Height = 42
    TabOrder = 13
    object Label15: TLabel
      Left = 16
      Top = 18
      Width = 49
      Height = 14
      Caption = 'Yap. '#304#351'lem'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Yapisl: TwwDBComboBox
      Left = 96
      Top = 12
      Width = 145
      Height = 22
      ShowButton = True
      Style = csDropDownList
      MapList = True
      AllowClearKey = False
      Color = 14811135
      DropDownCount = 8
      Enabled = False
      ItemHeight = 0
      Items.Strings = (
        'Bire-Bir De'#287'i'#351'im'#9'BB'
        'Upgrade'#9'DU'
        'Muadil'#9'MU'
        'Par'#231'a Sat'#305#351#9'PS'
        'Yedek Par'#231'a'#9'YP')
      Sorted = False
      TabOrder = 0
      UnboundDataType = wwDefault
    end
  end
  object YSerino: TwwDBEdit
    Tag = 1
    Left = 344
    Top = 180
    Width = 153
    Height = 22
    Color = 14811135
    TabOrder = 1
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
    OnKeyDown = YSerinoKeyDown
  end
  object bekle: TBitBtn
    Left = 500
    Top = 179
    Width = 68
    Height = 25
    Caption = '       Ekle'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = bekleClick
    Margin = 1
  end
  object bcikart: TBitBtn
    Left = 573
    Top = 179
    Width = 60
    Height = 25
    Caption = 'Geri Al'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnClick = bcikartClick
  end
  object vergart: TwwDBDateTimePicker
    Left = 184
    Top = 180
    Width = 108
    Height = 22
    CalendarAttributes.Font.Charset = DEFAULT_CHARSET
    CalendarAttributes.Font.Color = clWindowText
    CalendarAttributes.Font.Height = -11
    CalendarAttributes.Font.Name = 'MS Sans Serif'
    CalendarAttributes.Font.Style = []
    Color = clWhite
    Epoch = 1950
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    ShowButton = True
    TabOrder = 14
  end
  object wwDBEdit1: TwwDBEdit
    Tag = 1
    Left = 48
    Top = 180
    Width = 73
    Height = 22
    Color = 14811135
    DataField = 'belgeno'
    DataSource = dmTeknik.spcikbilgids
    ReadOnly = True
    TabOrder = 15
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
  end
  object wwDBEdit3: TwwDBEdit
    Tag = 1
    Left = 520
    Top = 91
    Width = 105
    Height = 22
    Color = 14811135
    TabOrder = 16
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
  end
  object wwDBEdit4: TwwDBEdit
    Tag = 1
    Left = 520
    Top = 115
    Width = 105
    Height = 22
    Color = 14811135
    TabOrder = 17
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
  end
  object bKapat: TBitBtn
    Left = 560
    Top = 356
    Width = 73
    Height = 24
    Caption = 'Kapat'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ModalResult = 1
    ParentFont = False
    TabOrder = 9
    OnClick = bKapatClick
  end
  object blistele: TBitBtn
    Left = 8
    Top = 356
    Width = 121
    Height = 24
    Caption = 'Liste'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    OnClick = blisteleClick
  end
  object stkodu: TwwDBEdit
    Tag = 1
    Left = 72
    Top = 44
    Width = 129
    Height = 22
    Color = 14811135
    DataField = 'stokkod'
    DataSource = dmTeknik.parcadeglistds1
    Enabled = False
    ReadOnly = True
    TabOrder = 18
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
  end
  object StCinsi: TwwDBEdit
    Tag = 1
    Left = 72
    Top = 68
    Width = 349
    Height = 22
    Color = 14811135
    DataField = 'cinsi'
    DataSource = dmTeknik.parcadeglistds1
    Enabled = False
    ReadOnly = True
    TabOrder = 19
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
  end
  object wwDBEdit5: TwwDBEdit
    Left = 72
    Top = 44
    Width = 129
    Height = 22
    Color = 14811135
    DataField = 'stokkodu'
    DataSource = dmTeknik.parcadeglistds1
    Enabled = False
    ReadOnly = True
    TabOrder = 20
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
  end
  object Serino: TEdit
    Left = 72
    Top = 20
    Width = 129
    Height = 22
    Color = 14811135
    TabOrder = 0
    OnKeyPress = SerinoKeyPress
  end
  object StatusBar1: TfcStatusBar
    Left = 0
    Top = 421
    Width = 906
    Height = 27
    Panels = <
      item
        Font.Charset = TURKISH_CHARSET
        Font.Color = 13977088
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        Name = 'Panel0'
        Tag = 0
        Text = 'Giri'#351' Depo Kodu :'
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaVCenter
        Width = '50%'
      end
      item
        Font.Charset = TURKISH_CHARSET
        Font.Color = 13977088
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        Name = 'Panel1'
        Tag = 0
        Text = 'De'#287'i'#351'im Depo Kodu :'
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaVCenter
        Width = '50'
      end>
    SimplePanel = False
    SizeGrip = False
    StatusBarText.CapsLock = 'Caps'
    StatusBarText.Overwrite = 'Overwrite'
    StatusBarText.NumLock = 'Num'
    StatusBarText.ScrollLock = 'Scroll'
  end
  object StaticText1: TStaticText
    Left = 16
    Top = 0
    Width = 60
    Height = 18
    Caption = 'Eski Par'#231'a'
    Font.Charset = TURKISH_CHARSET
    Font.Color = 13977088
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 22
    Transparent = False
  end
  object StaticText2: TStaticText
    Left = 16
    Top = 149
    Width = 61
    Height = 18
    Caption = 'Yeni Par'#231'a'
    Font.Charset = TURKISH_CHARSET
    Font.Color = 13977088
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 23
    Transparent = False
  end
  object btOnayla: TBitBtn
    Tag = 1001
    Left = 131
    Top = 356
    Width = 121
    Height = 24
    Caption = 'Onayla'
    Enabled = False
    TabOrder = 24
    OnClick = btOnaylaClick
  end
  object RGRam: TwwRadioGroup
    Left = 8
    Top = 386
    Width = 625
    Height = 31
    DisableThemes = False
    Caption = 'Par'#231'a De'#287'i'#351'im T'#252'r'#252
    Color = 14811135
    Columns = 3
    DataField = 'RamDegisim'
    DataSource = dmTeknik.pardeglistds
    Items.Strings = (
      'Normal'
      'Tek '#220'r'#252'ne '#199'ift '#220'r'#252'n'
      #199'ift '#220'r'#252'ne Tek '#220'r'#252'n')
    ParentColor = False
    ReadOnly = True
    TabOrder = 25
    TabStop = False
    Values.Strings = (
      '0'
      '1'
      '2')
    Visible = False
    OnChange = RGRamChange
  end
  object GrpYeni: TGroupBox
    Left = 648
    Top = 115
    Width = 257
    Height = 93
    Caption = ' Yeni Par'#231'a - 2'
    Font.Charset = TURKISH_CHARSET
    Font.Color = 13977088
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 26
    Visible = False
    object Label7: TLabel
      Left = 8
      Top = 43
      Width = 49
      Height = 14
      Caption = 'Stok Kodu'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 8
      Top = 67
      Width = 47
      Height = 14
      Caption = 'Stok Cinsi'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label19: TLabel
      Left = 8
      Top = 19
      Width = 35
      Height = 14
      Caption = 'Seri No'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object YStokCinsi2: TwwDBEdit
      Tag = 1
      Left = 64
      Top = 64
      Width = 185
      Height = 22
      TabStop = False
      Color = 14811135
      DataField = 'yStokcinsi2'
      DataSource = dmTeknik.pardeglistds
      Font.Charset = TURKISH_CHARSET
      Font.Color = 13977088
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 2
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object YStokkodu2: TwwDBComboDlg
      Tag = 1
      Left = 64
      Top = 40
      Width = 186
      Height = 22
      TabStop = False
      ShowButton = True
      Style = csDropDown
      Color = 14811135
      DataField = 'yStokkodu2'
      DataSource = dmTeknik.pardeglistds
      Font.Charset = TURKISH_CHARSET
      Font.Color = 13977088
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
      WordWrap = False
      UnboundDataType = wwDefault
    end
    object YSerino2: TwwDBEdit
      Tag = 1
      Left = 64
      Top = 16
      Width = 185
      Height = 22
      TabStop = False
      Color = 14811135
      ReadOnly = True
      TabOrder = 0
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
  end
  object GrpEski: TGroupBox
    Left = 648
    Top = 10
    Width = 257
    Height = 94
    Caption = ' Eski Par'#231'a - 2 '
    Font.Charset = TURKISH_CHARSET
    Font.Color = 13977088
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 27
    Visible = False
    object Label13: TLabel
      Left = 8
      Top = 19
      Width = 35
      Height = 14
      Caption = 'Seri No'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label14: TLabel
      Left = 8
      Top = 43
      Width = 49
      Height = 14
      Caption = 'Stok Kodu'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label22: TLabel
      Left = 8
      Top = 67
      Width = 47
      Height = 14
      Caption = 'Stok Cinsi'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object StokCinsi2: TwwDBEdit
      Tag = 1
      Left = 64
      Top = 64
      Width = 185
      Height = 22
      TabStop = False
      Color = 14811135
      DataField = 'Stokcinsi2'
      DataSource = dmTeknik.pardeglistds
      ReadOnly = True
      TabOrder = 2
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object Stokkodu2: TwwDBComboDlg
      Tag = 1
      Left = 64
      Top = 40
      Width = 185
      Height = 22
      TabStop = False
      ShowButton = False
      Style = csDropDown
      Color = 14811135
      DataField = 'Stokkodu2'
      DataSource = dmTeknik.pardeglistds
      Font.Charset = TURKISH_CHARSET
      Font.Color = 13977088
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
      WordWrap = False
      UnboundDataType = wwDefault
    end
    object Serino2: TwwDBEdit
      Tag = 1
      Left = 64
      Top = 16
      Width = 185
      Height = 22
      TabStop = False
      Color = 14811135
      DataField = 'Serino2'
      DataSource = dmTeknik.pardeglistds
      ReadOnly = True
      TabOrder = 0
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
  end
  object RamAciklama: TStaticText
    Left = 344
    Top = 160
    Width = 153
    Height = 18
    AutoSize = False
    BevelKind = bkSoft
    Caption = '1. '#220'r'#252'n'#252' Okutunuz !'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 28
    Visible = False
  end
  object GrpYeni1: TGroupBox
    Left = 648
    Top = 11
    Width = 257
    Height = 93
    Caption = ' Yeni Par'#231'a - 1'
    Font.Charset = TURKISH_CHARSET
    Font.Color = 13977088
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 29
    Visible = False
    object Label20: TLabel
      Left = 8
      Top = 43
      Width = 49
      Height = 14
      Caption = 'Stok Kodu'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label21: TLabel
      Left = 8
      Top = 67
      Width = 47
      Height = 14
      Caption = 'Stok Cinsi'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label23: TLabel
      Left = 8
      Top = 19
      Width = 35
      Height = 14
      Caption = 'Seri No'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object YStokCinsi1: TwwDBEdit
      Tag = 1
      Left = 64
      Top = 64
      Width = 185
      Height = 22
      TabStop = False
      Color = 14811135
      DataField = 'ystokcinsi'
      DataSource = dmTeknik.pardeglistds
      Font.Charset = TURKISH_CHARSET
      Font.Color = 13977088
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 2
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object YStokkodu1: TwwDBComboDlg
      Tag = 1
      Left = 64
      Top = 40
      Width = 186
      Height = 22
      TabStop = False
      ShowButton = True
      Style = csDropDown
      Color = 14811135
      DataField = 'ystokkodu'
      DataSource = dmTeknik.pardeglistds
      Font.Charset = TURKISH_CHARSET
      Font.Color = 13977088
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
      WordWrap = False
      UnboundDataType = wwDefault
    end
    object YSerino1: TwwDBEdit
      Tag = 1
      Left = 64
      Top = 16
      Width = 185
      Height = 22
      TabStop = False
      Color = 14811135
      ReadOnly = True
      TabOrder = 0
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
  end
  object StaticText3: TStaticText
    Left = 260
    Top = 356
    Width = 293
    Height = 25
    AutoSize = False
    Caption = 'D'#304'KKAT! SA'#286'LAM - SA'#286'LAM'
    Color = clWhite
    Font.Charset = TURKISH_CHARSET
    Font.Color = clRed
    Font.Height = -21
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 30
    Visible = False
  end
  object DegisimOnay: TStaticText
    Left = 387
    Top = 331
    Width = 246
    Height = 18
    AutoSize = False
    BevelKind = bkSoft
    BorderStyle = sbsSingle
    Caption = ' De'#287'i'#351'imi Onaylayan : '
    Color = clBlack
    Font.Charset = TURKISH_CHARSET
    Font.Color = clLime
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 31
    Visible = False
  end
  object stMesaj: TStaticText
    Left = 85
    Top = -1
    Width = 555
    Height = 17
    Alignment = taCenter
    AutoSize = False
    BevelKind = bkSoft
    BorderStyle = sbsSingle
    Caption = 
      'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' +
      'XXXXXXXXXXXXXX'
    Color = clBlack
    Font.Charset = TURKISH_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 32
    Visible = False
  end
  object MainMenu1: TMainMenu
    Left = 745
    Top = 247
    object Dzen1: TMenuItem
      Caption = 'Kay'#305't'
      GroupIndex = 1
      object Dzelt1: TMenuItem
        Tag = 1002
        Caption = 'D'#252'zelt'
        Enabled = False
        ShortCut = 118
        Visible = False
      end
      object ptal1: TMenuItem
        Caption = 'Vazge'#231
        Enabled = False
        ShortCut = 117
        Visible = False
      end
      object Kaydet1: TMenuItem
        Caption = 'Kaydet'
        Enabled = False
        ShortCut = 113
        Visible = False
      end
      object Yenile1: TMenuItem
        Caption = 'Yenile'
        ShortCut = 116
        Visible = False
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Ara1: TMenuItem
        Caption = 'Arama'
        ShortCut = 114
      end
      object liste1: TMenuItem
        Caption = 'Liste'
        ShortCut = 120
        Visible = False
      end
      object Yazdr1: TMenuItem
        Caption = 'Yazd'#305'r'
        Enabled = False
        ShortCut = 123
      end
      object YeniSeriNoVer1: TMenuItem
        Caption = 'Yeni Seri No Ver'
        OnClick = YeniSeriNoVer1Click
      end
      object KullanmParaDeiimi1: TMenuItem
        Caption = #304#231' Kullan'#305'm Par'#231'a De'#287'i'#351'imi'
        OnClick = KullanmParaDeiimi1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object k1: TMenuItem
        Caption = #199#305'k'#305#351
        ShortCut = 119
        OnClick = bKapatClick
      end
    end
    object Servis1: TMenuItem
      Caption = 'Raporlar'
      GroupIndex = 1
      Visible = False
      object Rapor1: TMenuItem
        Caption = 'Degi'#351'en parca Raporu'
        OnClick = Rapor1Click
      end
    end
  end
  object stoksor: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serino'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT     stok.stokkod, fatharhar.stokkod AS Expr1, fatharhar.s' +
        'erinos, fatharhar.bilisnogir,Stok.Aktif,stok.stokkodu,stok.Cinsi'
      'FROM         stok INNER JOIN'
      
        '                      fatharhar ON stok.stokkod = fatharhar.stok' +
        'kod'
      'WHERE     (fatharhar.serinos =:serino)')
    Left = 264
    Top = 294
  end
  object fatsor: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serino'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select Fatharhar.*,Stok.GrupId'
      'from fatharhar'
      'join Stok on (Stok.Stokkod=fatharhar.Stokkod)'
      'where serinos=:serino')
    Left = 128
    Top = 230
  end
  object pardeg: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'pdegno'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from pardeg'
      'where pdegno=:pdegno')
    Left = 128
    Top = 270
  end
  object onarim: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'onarimno'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from onarim '
      'Where onarimno=:onarimno')
    Left = 240
    Top = 238
  end
  object aqbos: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serino'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select * from pardeg'
      'Where serino=:serino')
    Left = 192
    Top = 230
  end
  object ParDegBul: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'onarimno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * from pardeg'
      'WHERE onarimno=:onarimno')
    Left = 320
    Top = 246
  end
  object spOtoFisOlusturQ: TADOStoredProc
    Connection = dm.connect
    ProcedureName = 'ParcaDegisim_OtoStokFisiOlusturma;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@fistipi'
        Attributes = [paNullable]
        DataType = ftString
        Size = 6
        Value = Null
      end
      item
        Name = '@cambar'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = Null
      end
      item
        Name = '@gambar'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = Null
      end
      item
        Name = '@estokkod'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@ystokkod'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@tarih'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@saat'
        Attributes = [paNullable]
        DataType = ftString
        Size = 5
        Value = Null
      end
      item
        Name = '@islem'
        Attributes = [paNullable]
        DataType = ftString
        Size = 1
        Value = Null
      end
      item
        Name = '@GCDepo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@OnarimNo'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@ESeriNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@YSeriNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@ESeriNo2'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@YSeriNo2'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end>
    Left = 417
    Top = 262
  end
  object aqTeknik: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'onarimno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'Select BirebirDegisim,BirebirDegisimYaptiran From Teknik Where F' +
        'ormno=(SELECT FormNo from Onarim WHERE onarimno=:onarimno)')
    Left = 378
    Top = 223
  end
  object aqSeriNoDuzelt: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'Select * from TblSeriNoDuzelt')
    Left = 670
    Top = 246
  end
  object aqbos2: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serino'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select * from pardeg'
      'Where serino=:serino')
    Left = 530
    Top = 236
  end
  object aqbos1: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serino'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select * from pardeg'
      'Where serino=:serino')
    Left = 469
    Top = 231
  end
end
